home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 65
/
065.d81
/
chief boot
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
3KB
|
86 lines
5 poke53281,.:poke53280,12:printchr$(147)chr$(14)chr$(8)
8 gosub61000
10 poke214,9:print:printtab(9)"[159][195][200][201][197][198] [212][207][205][193][200][193][215][203]'[211][160][199][193][205][197][211]"
11 printtab(6)"[154][193]dventure on the [207]regon [212]rail"
12 sa=14336:hi=int(sa/256):lo=sa-hi*256
13 sys57812"chief font",8,0
14 poke780,0:poke781,lo:poke782,hi:sys65493:poke53272,31
15 poke147,0:sys57812"chant arabe",8,1:sys62631
20 print" [201]nstructions [y/n]"
21 getk$:ifk$=""then21
22 ifk$="y"thengosub5000:print"[147]":gosub61000
30 poke214,13:print:print"[150] [204]oading [208]rogram..."
31 goto60000
5000 gosub9000
5005 print"[159] [215]hile making your way across the
5010 [153]" high plains in the early 1800's, your
5015 print" wagon train has been captured by [195]hief
5020 [153]" (NULL)omahawk and his braves. atns (NULL)agon-
5025 print" master, it is up to you to secure the
5030 [153]" release of your fellow travelers.
5035 print" [198]ortunately, the [195]hief places a
5040 [153]" greater importance on intelligence
5045 print" than on brawn. [212]herefore, he has
5050 [153]" agreed to release you if you can
5055 print" solve his games.
5060 [141]9100
5065 [141]9000
5070 [153]"open (NULL)he lenhief will lay out either
5075 print" arrows, beads, tomahawks or peace
5080 [153]" pipes in alternating colors. (NULL)our
5085 print" job is to rearrange them so that all
5090 [153]" the blue objects are on the left side
5095 print" followed immediately by the red
5100 [153]" objects. ascor example, the correct
5105 print" solution to the first puzzle is"
5110 print" [154]@@@@[150]@@@@"
5115 print" [154]aaaa[150]aaaa"
5120 print" [154]bbbb[150]bbbb"
5122 printtab(26)"[155][192] [192]"
5125 gosub9100:gosub9000
5130 print"[159] [217]ou move the objects in pairs.
5135 [153]" right$ndicate the left item of the pair
5140 print" that you wish to move to the open
5145 [153]" space by moving the arrow with the
5150 print" cursor keys. [208]ress [210][197][212][213][210][206] to imple-
5155 [153]" ment the move.
5160 print" [212]he first puzzle can be solved
5165 [153]" in 4 moves, the second in 5 moves,
5170 print" the third in 6 moves and the last in
5175 [153]" 7 moves."
5180 [141]9100:[141]9000
5190 [153]"open (NULL)rogrammer's note: right$ would like
5195 print" to take this opportunity to thank
5200 [153]" (NULL)aurice mid$ones who was kind enough
5205 print" to send me this puzzle to develop for
5210 [153]" (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL).
5215 print" [212]he background music is [195]hant
5220 [153]" atnrabe (composer unknown)."
5225 [141]9100:[142]
9000 [153]"loadcont lenhief (NULL)omahawk's chr$ames"
9005 [153]"def tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan"
9010 [142]
9100 [151]214,22:[153]
9105 [153][163]14)"clr(NULL)(NULL)val(NULL)(NULL) (NULL)val(NULL)(NULL)(NULL)(NULL)"
9107 [129]t[178]1[164]100:[130]
9110 [161]k$:[139]k$[178][199](13)[167][142]
9115 [153][163]14)"on(NULL)(NULL)val(NULL)(NULL) (NULL)val(NULL)(NULL)(NULL)(NULL)"
9120 [129]t[178]1[164]100:[130]:[137]9100
10000 [159]15,8,15,"s0:chief boot":[160]15:[148]"0:chief boot",8:[128]
60000 [159]15,8,15,"r0:chief=chief":[132]15,er:[160]15
60010 [139] er[179][177]63 [167] [153]"":[128]
60020 a$[178]"chief":q$[178][199](34)
60030 [153]"stopload"q$a$q$",8"
60040 [153]"run":[151]631,13:[151]632,13:[151]198,2:[128]
61000 [151]214,15:[153]
61110 [153]" listortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^"
61120 [153]" (NULL) (NULL)"
61130 [153]" (NULL) lenleft$right$valasc (NULL)(NULL)(NULL)atnleft$atn(NULL)(NULL)'(NULL) chr$atn(NULL)val(NULL) (NULL)"
61140 [153]" (NULL) peeky peekarbara left$. (NULL)chulak (len) 1989 (NULL)"
61150 [153]" (NULL) (NULL)ublished on (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) #65 (NULL)"
61160 [153]" (NULL) (NULL)ubscriptions 1-800-831-2694 (NULL)"
61170 [153]" (NULL) atnll (NULL)ights (NULL)eserved (NULL)"
61180 [153]" (NULL) (NULL)"
61190 [153]" /tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp"
61220 [153]"":[142]